Pascal Super Library

home *** CD-ROM | disk | FTP | other *** search

/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MOTOROLA / 6805V107 / TEST.LST < prev next >

Wrap

File List | 1995-05-02 | 26KB | 492 lines

MC68705 Assembler ver 1.06 Keyless Lock - AN863 2:05:95 Page 1 1: 1 title 'Keyless Lock - AN863' 1: 2 * Motorola Evaluation Program: MC1468705F2 Keyle 1: 3 * See Motorola application note AN-863 1: 4 * 1: 5 * This was typed in from a Motorola application-n 1: 6 * a simple demonstration of the software package 1: 7 * It does not exhibit every capability of the Ass 1: 8 * (eg complex operand expressions), but it will 1: 9 * as a start. 1: 10 * 1: 11 * If you want to emulate this code, be sure to se 1: 12 * "68705F2" emulation mode. 1: 13 * 1: 14 include '68705f2.asm' Standard definiti 2: 1 * Definitions of Hardware Locations: MC1468705F2 2: 2 * 2: 3 C 0000 0000 ORG 0 2: 4 C 0000 00 PORTA FCB 0 The 3 I/O Ports 2: 5 C 0001 00 PORTB FCB 0 2: 6 C 0002 00 PORTC FCB 0 NB Bits 4-7 unused: read 2: 7 C 0003 0004 DDR EQU 4 Offset for Direction Reg. 2: 8 * 2: 9 C 0003 0008 ORG 8 2: 10 C 0008 00 TIMER FCB 0 Timer Register 2: 11 * 2: 12 C 0009 0800 MEMSIZ EQU $0800 Max. Memory address +1 2: 13 * 1: 15 C 0009 0040 ORG $40 1: 16 * 1: 17 C 0040 00 CTRL FCB 0 1: 18 C 0041 0008 CODE RMB 8 ENTRY CODE LOCATION 1: 19 C 0049 0008 NCODE RMB 8 ENTERED CODE LOCATION 1: 20 C 0051 0008 VERI RMB 8 VERIFY CODE LOCATION 1: 21 C 0059 00 TEMPX FCB 0 TEMPORARY REG FOR X 1: 22 C 005A 00 TEMP FCB 0 ANOTHER TEMP REG 1: 23 C 005B 00 TEMP2 FCB 0 TIME COUNTER (UPPER) 1: 24 C 005C 00 TEMP1 FCB 0 TIME COUNTER (LOWER) 1: 25 C 005D 00 TEMPA1 FCB 0 TIME DELAY REGISTER 1: 26 C 005E 00 TEMPA FCB 0 1: 27 C 005F 00 VALID1 FCB 0 1: 28 C 0060 00 VALID2 FCB 0 1: 29 C 0061 00 TEMP3 FCB 0 1: 30 * 1: 31 * 1: 32 C 0062 0000 BLANK EQU $00 BLANK CHARACTER TO LCD 1: 33 C 0062 0020 DASH EQU $20 DASH 1: 34 * 1: 35 ************************************************* 1: 36 * 1: 37 * Equates, etc., to resolve references to c 1: 38 * 1: 39 ************************************************* 1: 40 * 1: 41 C 0062 00B9 ORG $B9 1: 42 C 00B9 56 45 52 49 VERIFY MSG 'VERIFY' 1: 43 * 1: 44 C 00BF 00C1 ORG $C1 1: 45 C 00C1 45 52 52 4F ERROR MSG 'ERROR' 1: 46 * 1: 47 C 00C6 00C9 ORG $C9 1: 48 C 00C9 4F 50 45 4E OPEN1 MSG 'OPEN' MC68705 Assembler ver 1.06 Keyless Lock - AN863 2:05:95 Page 2 1: 49 * 1: 50 C 00CD 00D1 ORG $D1 1: 51 C 00D1 43 48 41 4E CHG MSG 'CHANGE' 1: 52 * 1: 53 * 1: 54 ************************************************* 1: 55 * 1: 56 * NB Changed code here!! 1: 57 * The original definitions follow: these pointed 1: 58 * to a firmware debugger (not part of this code) 1: 59 * To make this code run (in emulation), they are 1: 60 * replaced by EQU's to the code start. 1: 61 * 1: 62 *RESET EQU $F8 Restart firmeware debugge 1: 63 *MONIT EQU $179 SWI instruction: trap 1: 64 * 1: 65 ************************************************* 1: 66 * MC68705 Assembler ver 1.06 Keyless Lock - AN863 2:05:95 Page 3 1: 67 eject 1: 68 ************************************************* 1: 69 * 1: 70 C 00D7 0343 ORG $343 1: 71 * 1: 72 * INITIALISATION GOES HERE 1: 73 * 1: 74 C 0343 0343 RESET EQU $ 1: 75 C 0343 0343 MONIT EQU $ 1: 76 C 0343 A6 F0 2 LOCK LDA #$F0 1: 77 C 0345 B7 04 4 STA PORTA+DDR 1: 78 C 0347 3F 01 5 CLR PORTB CLEAR PORTB 1: 79 C 0349 3F 40 5 CLR CTRL 1: 80 C 034B 4F 3 CLRA 1: 81 C 034C 43 3 COMA GET FF 1: 82 C 034D B7 05 4 STA PORTB+DDR SET PORTB DDR TO 1: 83 C 034F CD 00 00 6?BEGIN JSR CLEAR 1: 84 * 1: 85 * 1: 86 C 0352 8E 2 STOP STOP PROCESSOR AN 1: 87 C 0353 CD 00 00 6?BGIN1 JSR CLEAR CLEAR DISPLAY 1: 88 C 0356 9A 2 CLI 1: 89 * 1: 90 * GET NUMBER 1: 91 * 1: 92 C 0357 AE 49 2 LDX #NCODE GET RAM STORAGE S 1: 93 C 0359 AD 00 6? BSR GET8 GET 8 NUMBERS 1: 94 * 1: 95 * NOW THAT WE HAVE THE EIGHT-DIGIT NUMBER C 1: 96 * THE VALID ENTRY CODE AND THE CHANGE CODE. 1: 97 * NO MATCH INCREMENT ALARM COUNTER. 1: 98 * 1: 99 C 035B AE 08 2 LDX #$08 GET COUNT 1: 100 C 035D E6 48 4 MOR2 LDA NCODE-1,X GET FIRST/N NUMBE 1: 101 C 035F E1 D0 4 CMP CHG-1,X IS IT THE CHANGE 1: 102 C 0361 26 00 3? BNE MORR IF Z=0 NOT EQUAL 1: 103 C 0363 5A 3 DECX DECREMENT COUNTER 1: 104 C 0364 26 F7 3 BNE MOR2 DO MORE IF NO 1: 105 C 0366 20 00 3? BRA VERI1 1: 106 * 1: 107 * 1: 108 @0362 =..05 Resolved 1: 109 C 0368 AE 41 2 MORR LDX #CODE GET FIRST LOCATIO 1: 110 C 036A CD 00 00 6? JSR BLCMP COMPARE THEM 1: 111 C 036D 4C 3 INCA CHECK FOR EQUAL 1: 112 C 036E 26 00 3? BNE OPEN IF NOT 0 THEN EQU 1: 113 C 0370 20 00 3? BRA ALARM1 1: 114 * 1: 115 * 1: 116 * CHANGE ENTRY CODE SECTION WITH VERIFY 1: 117 * 1: 118 @0367 =..0A Resolved 1: 119 C 0372 CD 00 00 6?VERI1 JSR CLEAR CLEAR DISPLAY 1: 120 C 0375 AE 49 2 VERI2 LDX #NCODE GET RAM LOCATION 1: 121 C 0377 AD 00 6? BSR GET8 GET NUMBER 1: 122 * 1: 123 * SEND THE WORD VERIFY HERE 1: 124 * 1: 125 C 0379 AE 08 2 LDX #$08 GET COUNTER MC68705 Assembler ver 1.06 Keyless Lock - AN863 2:05:95 Page 4 1: 126 C 037B E6 B8 4 LOOP LDA VERIFY-1,X 1: 127 C 037D CD 00 00 6? JSR DSPLY 1: 128 C 0380 5A 3 DECX 1: 129 C 0381 26 F8 3 BNE LOOP 1: 130 * 1: 131 * 1: 132 C 0383 AE 51 2 LDX #VERI GET RAM LOCATION 1: 133 C 0385 AD 00 6? BSR GET8 GET NUMBER 1: 134 * 1: 135 * COMPARE VERIFY 1: 136 * 1: 137 C 0387 AE 49 2 LDX #NCODE GET FIRST NUMBER 1: 138 C 0389 CD 00 00 6? JSR BLCMP COMPARE 1: 139 C 038C 4C 3 INCA CHECK FOR FF 1: 140 C 038D 27 00 3? BEQ CNT2 IF ZERO THEN ERRO 1: 141 * 1: 142 * VERIFY OK 1: 143 * 1: 144 C 038F AE 08 2 LDX #$08 1: 145 C 0391 E6 50 4 MOR6 LDA VERI-1,X GET START OF CODE 1: 146 C 0393 E7 40 5 STA CODE-1,X STORE IT 1: 147 C 0395 5A 3 DECX 1: 148 C 0396 26 F9 3 BNE MOR6 IF NOT DONE DO MO 1: 149 C 0398 CC 03 4F 3 JMP BEGIN GOTO START OF PRO 1: 150 * 1: 151 * IF IT GETS HERE THERE HAS BEEN A VERIFY E 1: 152 * SEND THE WORD ERROR TO THE LCD 1: 153 * 1: 154 @038E =..0C Resolved 1: 155 C 039B AE 08 2 CNT2 LDX #$08 GET COUNTER 1: 156 C 039D E6 C0 4 LOOP2 LDA ERROR-1,X 1: 157 C 039F CD 00 00 6? JSR DSPLY 1: 158 C 03A2 5A 3 DECX 1: 159 C 03A3 26 F8 3 BNE LOOP2 1: 160 C 03A5 20 CE 3 BRA VERI2 1: 161 * 1: 162 * THIS IS THE OPEN LOCK PART 1: 163 * 1: 164 @036F =..37 Resolved 1: 165 C 03A7 AE 08 2 OPEN LDX #$08 GET COUNTER 1: 166 C 03A9 E6 C8 4 LOO3 LDA OPEN1-1,X 1: 167 C 03AB CD 00 00 6? JSR DSPLY 1: 168 C 03AE 5A 3 DECX 1: 169 C 03AF 26 F8 3 BNE LOO3 1: 170 * 1: 171 C 03B1 0F 40 00 5? BRCLR 7,CTRL,NXT ALARM BIT SET? 1: 172 C 03B4 1F 40 5 BCLR 7,CTRL RESET IT IF YES 1: 173 C 03B6 15 01 5 BCLR 2,PORTB CLEAR ALARM BIT T 1: 174 @03B3 =..04 Resolved 1: 175 C 03B8 A6 F8 2 NXT LDA #$F8 1: 176 C 03BA B7 01 4 STA PORTB 1: 177 * 1: 178 * 1: 179 * LOOP FOR APPROX. 8 SECONDS 1: 180 * 1: 181 C 03BC AE FF 2 LDX #$FF GET COUNT 1: 182 C 03BE CD 00 00 6? JSR TMDLY DELAY 1: 183 * MC68705 Assembler ver 1.06 Keyless Lock - AN863 2:05:95 Page 5 1: 184 * CLOSE LOCK 1: 185 * 1: 186 C 03C1 4F 3 CLRA 1: 187 C 03C2 B7 01 4 STA PORTB 1: 188 C 03C4 CC 03 4F 3 JMP BEGIN 1: 189 * 1: 190 * THIS IS THE ALARM SPOT 1: 191 * 1: 192 @0371 =..55 Resolved 1: 193 C 03C7 3C 40 5 ALARM1 INC CTRL INCREMENT ALARM C 1: 194 C 03C9 03 40 00 5? BRCLR 1,CTRL,NXT2 CHECK FOR ALARM = 1: 195 C 03CC 14 01 5 BSET 2,PORTB IF ALARM=2, THEN 1: 196 @03CB =..02 Resolved 1: 197 C 03CE CC 03 4F 3 NXT2 JMP BEGIN GOTO START 1: 198 * 1: 199 * 1: 200 * THIS IS THE SUBROUTINE GET8 1: 201 * 1: 202 1: 203 1: 204 @0386 =..4A Resolved @0378 =..58 Resolved @035A =..76 Resolved 1: 205 C 03D1 A6 08 2 GET8 LDA #$08 GET NUMBER COUNT 1: 206 C 03D3 B7 5C 4 STA TEMP1 SAVE COUNTER 1: 207 C 03D5 A6 40 2 SCAN2 LDA #$40 GET UPPER COUNTER 1: 208 C 03D7 B7 5B 4 STA TEMP2 SAVE COUNTER 1: 209 C 03D9 A6 FF 2 SCAN1 LDA #$FF GET LOWER COUNTER 1: 210 C 03DB B7 5A 4 STA TEMP SAVE COUNTER 1: 211 * 1: 212 * 1: 213 ************************************************* 1: 214 * THIS SUBROUTINE SCANS A 4 x 3 MATRIX OF K 1: 215 * VALUE OF 1-12 IN THE A ACCUMULATOR IF IT FINDS 1: 216 * OTHERWISE IT RETURNS A VALUE OF $FF IF NO KEY I 1: 217 * ONLY REGISTER DESTROYED IS THE A ACCUMULATOR AL 1: 218 * ARE LEFT ALONE. 1: 219 ************************************************* 1: 220 * 1: 221 C 03DD 03DD SCAN EQU $ 1: 222 C 03DD A6 40 2 LDA #$40 1: 223 C 03DF B7 00 4 STA PORTA SELECT ONE COLUMN 1: 224 C 03E1 BF 59 4 STX TEMPX SAVE X REGISTER 1: 225 C 03E3 AE 03 2 LDX #$03 COUNT THE COLUMN 1: 226 * 1: 227 C 03E5 B6 00 3 LOOPA LDA PORTA CHECK IF KEY PRES 1: 228 C 03E7 A4 0F 2 AND #$0F CLEAR UPPER NIBBL 1: 229 C 03E9 26 00 3? BNE DEBNCE BRANCH IF KEY PRE 1: 230 C 03EB 34 00 5 NOKEY LSR PORTA NEXT COLUMN 1: 231 C 03ED 5A 3 DECX DECREMENT COLUMN 1: 232 C 03EE 26 F5 3 BNE LOOPA NO KEY PRESSED 1: 233 C 03F0 5A 3 DECX RETURN X WITH $FF 1: 234 * 1: 235 C 03F1 9F 2 EXIT TXA 1: 236 C 03F2 BE 59 3 LDX TEMPX 1: 237 C 03F4 20 00 3? BRA CK 1: 238 * 1: 239 * MC68705 Assembler ver 1.06 Keyless Lock - AN863 2:05:95 Page 6 1: 240 C 03F6 44 3 FOUND LSRA SHIFT IF THE ROW 1: 241 C 03F7 25 00 3? BCS CHECK 1: 242 C 03F9 5C 3 INCX ADD 3 FOR EVERY R 1: 243 C 03FA 5C 3 INCX 1: 244 C 03FB 5C 3 INCX 1: 245 C 03FC 20 F8 3 BRA FOUND 1: 246 * 1: 247 @03F8 =..05 Resolved 1: 248 C 03FE A3 0A 2 CHECK CPX #$0A 1: 249 C 0400 25 EF 3 BLO EXIT NUMBER RETURNED < 1: 250 C 0402 A3 0B 2 CPX #$0B 1: 251 C 0404 27 00 3? BEQ FIX INPUT NUMBER IS Z 1: 252 C 0406 AE FF 2 INVAL LDX #$FF INVALID ENTRY RET 1: 253 C 0408 20 E7 3 BRA EXIT 1: 254 @0405 =..04 Resolved 1: 255 C 040A AE 00 2 FIX LDX #$00 RETURN 0 IN X 1: 256 C 040C 20 E3 3 BRA EXIT 1: 257 * 1: 258 @03EA =..23 Resolved 1: 259 C 040E B7 5E 4 DEBNCE STA TEMPA SAVE A REGISTER 1: 260 C 0410 3F 5F 5 CLR VALID1 1: 261 C 0412 3F 60 5 CLR VALID2 1: 262 C 0414 44 3 DBNCE1 LSRA 1: 263 C 0415 25 00 3? BCS ONEKEY CHECK TO MAKE SUR 1: 264 C 0417 3C 5F 5 INC VALID1 1: 265 C 0419 20 F9 3 BRA DBNCE1 CONTINUE CHECK 1: 266 @0416 =..04 Resolved 1: 267 C 041B A1 00 2 ONEKEY CMP #$00 ONLY ONE KEY PRES 1: 268 C 041D 26 E7 3 BNE INVAL NO, MORE THAN ONE 1: 269 * 1: 270 C 041F BF 61 4 STX TEMP3 1: 271 C 0421 AE FF 2 LDX #$FF 1: 272 C 0423 5A 3 MOR10 DECX 1: 273 C 0424 26 FD 3 BNE MOR10 1: 274 C 0426 BE 61 3 LDX TEMP3 1: 275 * 1: 276 C 0428 B6 00 3 LDA PORTA CHECK TO MAKE SUR 1: 277 C 042A A4 0F 2 AND #$0F 1: 278 C 042C 44 3 ROWCK1 LSRA 1: 279 C 042D 25 00 3? BCS ONEKY1 1: 280 C 042F 3C 60 5 INC VALID2 1: 281 C 0431 20 F9 3 BRA ROWCK1 1: 282 @042E =..04 Resolved 1: 283 C 0433 B6 60 3 ONEKY1 LDA VALID2 1: 284 C 0435 B1 5F 3 CMP VALID1 SAME KEY PRESSED 1: 285 C 0437 26 CD 3 BNE INVAL NO! SAME KEY NOT 1: 286 * 1: 287 * 1: 288 C 0439 B6 00 3 UPKEY LDA PORTA CHECK TO MAKE SUR 1: 289 C 043B A4 0F 2 AND #$0F 1: 290 C 043D 26 FA 3 BNE UPKEY RELEASED? NO 1: 291 C 043F B6 5E 3 LDA TEMPA VALID KEY PRESS 1: 292 C 0441 20 B3 3 BRA FOUND CALCULATE KEY NUM 1: 293 * 1: 294 * 1: 295 MC68705 Assembler ver 1.06 Keyless Lock - AN863 2:05:95 Page 7 @03F5 =..4D Resolved 1: 296 C 0443 4C 3 CK INCA INCREMENT A Z=1=N 1: 297 C 0444 26 00 3? BNE BACK GO BACK IF NOT ZE 1: 298 C 0446 BF 59 4 STX TEMPX SAVE X 1: 299 C 0448 AE 01 2 LDX #$01 1: 300 C 044A AD 00 6? BSR TMDLY DELAY FOR 32MS 1: 301 C 044C BE 59 3 LDX TEMPX GET X 1: 302 C 044E 3A 5A 5 DEC TEMP DEC LOWER COUNTER 1: 303 C 0450 26 8B 3 BNE SCAN CHECK FOR MORE KE 1: 304 C 0452 3A 5B 5 DEC TEMP2 DEC UPPER COUNTER 1: 305 C 0454 26 83 3 BNE SCAN1 CHECK FOR MORE KE 1: 306 * 1: 307 * CLEAR DISPLAY HERE 1: 308 * 1: 309 C 0456 CD 00 00 6?BCK JSR CLEAR 1: 310 C 0459 9C 2 RSP 1: 311 C 045A CC 03 4F 3 JMP BEGIN 1: 312 @0445 =..17 Resolved 1: 313 C 045D 4A 3 BACK DECA ADJUST KEY NUMBER 1: 314 C 045E F7 4 STA ,X SAVE NUMBER 1: 315 C 045F A6 20 2 LDA #DASH 1: 316 C 0461 AD 00 6? BSR DSPLY 1: 317 C 0463 5C 3 INCX INC POINTER 1: 318 C 0464 3A 5C 5 DEC TEMP1 DEC COUNTER 1: 319 C 0466 26 00 3? BNE SC1 IF NOT 8 GET MORE 1: 320 C 0468 81 6 RTS RETURN 1: 321 @0467 =..01 Resolved 1: 322 C 0469 CC 03 D5 3 SC1 JMP SCAN2 1: 323 * 1: 324 * THIS IS THE DISPLAY SUBROUTINE 1: 325 * 1: 326 1: 327 1: 328 1: 329 @0462 =..09 Resolved @03AC =046C Resolved @03A0 =046C Resolved @037E =046C Resolved 1: 330 C 046C BF 59 4 DSPLY STX TEMPX SAVE X 1: 331 C 046E AE 08 2 LDX #$08 GET COUNTER 1: 332 C 0470 98 2 CLC CLEAR CARRY 1: 333 C 0471 48 3 MOR8 LSLA ROTATE TO GET BIT 1: 334 C 0472 25 00 3? BLO ONE ONE OR A ZERO 1: 335 C 0474 11 01 5 BCLR 0,PORTB SEND ZERO 1: 336 C 0476 20 00 3? BRA STRB 1: 337 @0473 =..04 Resolved 1: 338 C 0478 10 01 5 ONE BSET 0,PORTB SEND ONE 1: 339 @0477 =..02 Resolved 1: 340 C 047A 12 01 5 STRB BSET 1,PORTB SEND STROBE 1: 341 C 047C 13 01 5 BCLR 1,PORTB TO ENTER DATA 1: 342 C 047E 5A 3 DECX DEC COUNTER 1: 343 C 047F 26 F0 3 BNE MOR8 1: 344 C 0481 BE 59 3 LDX TEMPX 1: 345 C 0483 81 6 RTS RETURN 1: 346 * 1: 347 MC68705 Assembler ver 1.06 Keyless Lock - AN863 2:05:95 Page 8 1: 348 1: 349 1: 350 @0457 =0484 Resolved @0373 =0484 Resolved @0354 =0484 Resolved @0350 =0484 Resolved 1: 351 C 0484 4F 3 CLEAR CLRA 1: 352 C 0485 AE 08 2 LDX #$08 1: 353 C 0487 AD E3 6 LOO BSR DSPLY 1: 354 C 0489 5A 3 DECX 1: 355 C 048A 26 FB 3 BNE LOO 1: 356 C 048C 81 6 RTS 1: 357 * 1: 358 * THIS IS THE BLOCK COMPARE ROUTINE 1: 359 * 1: 360 * X-CONTAINS THE LOWER ORDER LOCATION 1: 361 * THIS ROUTINE ASSUMES THE ONE TO EIGHT 1: 362 * DIGIT NUMBERS ARE NEXT TO EACH OTHER 1: 363 * 1: 364 1: 365 @038A =048D Resolved @036B =048D Resolved 1: 366 C 048D A6 08 2 BLCMP LDA #$08 GET COUNTER 1: 367 C 048F B7 5D 4 STA TEMPA1 SAVE COUNTER 1: 368 C 0491 F6 3 MOR1 LDA ,X GET IT 1: 369 C 0492 A1 08 2 CMP #$08,X COMPARE 1: 370 C 0494 26 00 3? BNE RT IF NO COMPARE GO 1: 371 C 0496 5C 3 INCX 1: 372 C 0497 3A 5D 5 DEC TEMPA1 DEC COUNTER 1: 373 C 0499 26 F6 3 BNE MOR1 IF NOT DONE DO MO 1: 374 C 049B 4F 3 CLRA GET ALL ZEROS 1: 375 C 049C 20 00 3? BRA RT1 1: 376 @0495 =..08 Resolved 1: 377 C 049E 4F 3 RT CLRA 1: 378 C 049F 43 3 COMA GET ALL ONES 1: 379 @049D =..02 Resolved 1: 380 C 04A0 81 6 RT1 RTS RETURN 00=EQUAL F 1: 381 * 1: 382 * 1: 383 * THIS IS THE TIME DELAY ROUTINE 1: 384 * 1: 385 * X CONTAINS THE NUMBER OF TIME-OUTS THAT T 1: 386 * COUNTER WILL GO THRU 1: 387 * ONE TIMEOUT=32 MILLISEC. 1: 388 * 1: 389 1: 390 @044B =..55 Resolved @03BF =04A1 Resolved 1: 391 C 04A1 B7 5D 4 TMDLY STA TEMPA1 SAVEACC. 1: 392 C 04A3 A6 47 2 MOR LDA #$47 GET TIMER CONTROL 1: 393 C 04A5 B7 09 4 STA TIMER+1 STORE 1: 394 C 04A7 A6 FF 2 LDA #$FF GET ALL ONES 1: 395 C 04A9 B7 08 4 STA TIMER STORE 1: 396 C 04AB 0F 09 FD 5 HERE BRCLR 7,TIMER+1,HERE POLL TIMER IRQ BI 1: 397 C 04AE 5A 3 DECX DEC COUNTER 1: 398 C 04AF 26 F2 3 BNE MOR IF NOT DONE DO MO MC68705 Assembler ver 1.06 Keyless Lock - AN863 2:05:95 Page 9 1: 399 C 04B1 81 6 RTS RETURN 1: 400 * 1: 401 * 1: 402 * THIS IS THE IRQ DRIVER TO GET THE WHOLE T 1: 403 * 1: 404 C 04B2 9C 2 INT RSP 1: 405 C 04B3 9A 2 CLI 1: 406 C 04B4 CC 03 53 3 JMP BGIN1 1: 407 * 1: 408 * 1: 409 * SET UP EXTERNAL INTERRUPT VECTOR HERE 1: 410 * 1: 411 ************************************************* 1: 412 * 1: 413 * VECTORS 1: 414 * 1: 415 ************************************************* 1: 416 * 1: 417 C 04B7 07F6 ORG MEMSIZ-10 1: 418 C 07F6 03 53 FDB BGIN1 1: 419 C 07F8 03 53 FDB BGIN1 1: 420 C 07FA 04 B2 FDB INT 1: 421 C 07FC 03 43 FDB MONIT SWI 1: 422 C 07FE 03 43 FDB RESET 1: 423 ------------------- End of Assembly -------------------